Net Power 2000 February/NetCD2.iso/Patch/age/age2cpfix.exe/data/GAMEDATA.DRS/Unnamed File 000029.bina

Text File | 1999-11-11 | 16.7 KB | 728 lines

#load-if-defined DIFFICULTY-EASIEST

    #load-if-not-defined TEAMS-LOCKED
    (defrule
        (true)
    =>
        (set-stance every-human neutral)
        (set-stance every-computer neutral)
        (disable-self)
    )

    (defrule
        (cc-players-building-type-count any-human market > 0)
    =>
        (generate-random-number 2)
        (set-goal personality 50)
        (disable-self)
    )

    (defrule
        (goal personality 50)
        (random-number == 1)
    =>
        (enable-timer t-chathelp 10)
        (set-goal personality 4)
        (disable-self)
    )

    (defrule
        (goal personality 50)
    =>
        (set-goal personality 0)
        (disable-self)
    )

    (defrule
        (goal personality 4)
        (taunt-detected any-computer 218)
    =>
        (set-goal personality 0)
        (acknowledge-taunt this-any-computer 218)
        (disable-timer t-chathelp)
        (disable-self)
    )

    (defrule
        (goal personality 4)
        (timer-triggered t-chathelp)
    =>
        (set-goal personality ALLY)
        (disable-timer t-chathelp)
        (set-stance every-human neutral)
        (set-stance every-computer neutral)
        (chat-to-player-using-id every-human 22000)
            ;"Send me 100 resources and I shall join thine side."
        (chat-to-player-using-id every-computer 22400)    ;218
        (disable-self)
    )

    (defrule
        (goal personality ALLY)
        (or
            (or
                (players-tribute any-human-neutral wood >= 100)
                (players-tribute any-human-neutral food >= 100)
            )
            (or
                (players-tribute any-human-neutral gold >= 100)
                (players-tribute any-human-neutral stone >= 100)
            )
        )
    =>
        (chat-to-player-using-id this-any-human-neutral 22002)
        (chat-to-player-using-id this-any-human-neutral 22003)
            ;"I am grateful for thy tribute."
            ;"Let us be friends henceforth!"
        (set-stance this-any-human-neutral ally)
        (set-stance every-computer enemy)
        (disable-self)
    )

    #end-if

(defrule
    (true)
=>
    (set-strategic-number sn-percent-enemy-sighted-response 10)
    (set-strategic-number sn-easiest-reaction-percentage 20)
    (set-difficulty-parameter ability-to-maintain-distance 100)
    (set-difficulty-parameter ability-to-dodge-missiles 100)
    (disable-self)
)

;crude age advancement rules
(defrule
    (goal age-advancement NO)
    (players-current-age every-human >= feudal-age)
    (can-research-with-escrow feudal-age)
=>
    (release-escrow food)
    (research feudal-age)
    (set-goal age-advancement NOTICE)
    (enable-timer t-ageup 300)
)

(defrule
    (current-age == feudal-age)
=>
    (disable-timer t-ageup)
    (set-goal age-advancement NO)
    (disable-self)
)

(defrule
    (goal age-advancement NO)
    (players-current-age every-human >= castle-age)
    (can-research-with-escrow castle-age)
=>
    (release-escrow food)
    (release-escrow gold)
    (research castle-age)
    (set-goal age-advancement NOTICE)
    (enable-timer t-ageup 300)
)

(defrule
    (current-age == castle-age)
=>
    (disable-timer t-ageup)
    (set-goal age-advancement NO)
    (disable-self)
)

(defrule
    (goal age-advancement NOTICE)
    (current-age < castle-age)
    (timer-triggered t-ageup)
=>
    (disable-timer t-ageup)
    (set-goal age-advancement NO)
)
#end-if
;********************************
#load-if-defined DIFFICULTY-EASY
(load "petersen tower")

    #load-if-not-defined TEAMS-LOCKED

    (defrule
        (cc-players-building-type-count any-human market > 0)
    =>
        (generate-random-number 2)
        (set-goal personality 50)
        (disable-self)
    )

    (defrule
        (goal personality 50)
        (random-number == 1)
    =>
        (enable-timer t-chathelp 10)
        (set-goal personality 4)
        (disable-self)
    )

    (defrule
        (goal personality 50)
    =>
        (set-goal personality 0)
        (disable-self)
    )

    (defrule
        (goal personality 4)
        (taunt-detected any-computer 218)
    =>
        (set-goal personality 0)
        (acknowledge-taunt this-any-computer 218)
        (disable-timer t-chathelp)
        (disable-self)
    )

    (defrule
        (goal personality 4)
        (timer-triggered t-chathelp)
    =>
        (set-goal personality ALLY)
        (set-stance every-human neutral)
        (set-stance every-computer neutral)
        (chat-to-player-using-id every-computer 22400)    ;218
        (disable-timer t-chathelp)
        (disable-timer t-chat)
        (enable-timer t-chat 600)
        (disable-self)
    )

    (defrule
        (goal personality ALLY)
        (starting-resources == low-resources)
    =>
        (chat-to-player-using-id every-human 22004)
        (chat-to-player-using-id every-human 22005)
            ;"Send me 200 each of wood, food, gold, and stone!"
            ;"If thou dost this thing, I shall join thine side."
        (disable-self)
    )

    (defrule
        (goal personality ALLY)
        (starting-resources == medium-resources)
    =>
        (chat-to-player-using-id every-human 22006)
        (chat-to-player-using-id every-human 22005)
            ;"Send me 500 each of wood, food, gold, and stone!"
            ;"If thou dost this thing, I shall join thine side."
        (disable-self)
    )

    (defrule
        (goal personality ALLY)
        (starting-resources == high-resources)
        (stance-toward any-human neutral)
    =>
        (chat-to-player-using-id every-human 22007)
        (chat-to-player-using-id every-human 22005)
            ;"Send me 1000 each of wood, food, gold, and stone!"
            ;"If thou dost this thing, I shall join thine side."
        (disable-self)
    )

    (defrule
        (timer-triggered t-chat)
        (goal personality ALLY)
        (or
            (and
                (starting-resources == low-resources)
                (players-tribute any-human-neutral wood < 200)
            )
            (or
                (and
                    (starting-resources == medium-resources)
                    (players-tribute any-human-neutral wood < 500)
                )
                (and
                    (starting-resources == high-resources)
                    (players-tribute any-human-neutral wood < 1000)
                )
            )
        )
    =>
        (chat-to-player-using-id this-any-human-neutral 22008)
            ;"Thou must send me more wood!"
        (disable-timer t-chat)
        (enable-timer t-chat 300)
    )

    (defrule
        (timer-triggered t-chat)
        (goal personality ALLY)
        (or
            (and
                (starting-resources == low-resources)
                (players-tribute any-human-neutral food < 200)
            )
            (or
                (and
                    (starting-resources == medium-resources)
                    (players-tribute any-human-neutral food < 500)
                )
                (and
                    (starting-resources == high-resources)
                    (players-tribute any-human-neutral food < 1000)
                )
            )
        )
    =>
        (chat-to-player-using-id this-any-human-neutral 22009)
            ;"Thou must send me more food!"
        (disable-timer t-chat)
        (enable-timer t-chat 300)
    )

    (defrule
        (timer-triggered t-chat)
        (goal personality ALLY)
        (or
            (and
                (starting-resources == low-resources)
                (players-tribute any-human-neutral gold < 200)
            )
            (or
                (and
                    (starting-resources == medium-resources)
                    (players-tribute any-human-neutral gold < 500)
                )
                (and
                    (starting-resources == high-resources)
                    (players-tribute any-human-neutral gold < 1000)
                )
            )
        )
    =>
        (chat-to-player-using-id this-any-human-neutral 22010)
            ;"Thou must send me more gold!"
        (disable-timer t-chat)
        (enable-timer t-chat 300)
    )

    (defrule
        (timer-triggered t-chat)
        (goal personality ALLY)
        (or
            (and
                (starting-resources == low-resources)
                (players-tribute any-human-neutral stone < 200)
            )
            (or
                (and
                    (starting-resources == medium-resources)
                    (players-tribute any-human-neutral stone < 500)
                )
                (and
                    (starting-resources == high-resources)
                    (players-tribute any-human-neutral stone < 1000)
                )
            )
        )
    =>
        (chat-to-player-using-id this-any-human-neutral 22011)
            ;"Thou must send me more stone!"
        (disable-timer t-chat)
        (enable-timer t-chat 300)
    )

    (defrule
        (goal personality ALLY)
        (or
            (and
                (starting-resources == low-resources)
                (players-tribute any-human-neutral wood >= 200)
            )
            (or
                (and
                    (starting-resources == medium-resources)
                    (players-tribute any-human-neutral wood >= 500)
                )
                (and
                    (starting-resources == high-resources)
                    (players-tribute any-human-neutral wood >= 1000)
                )
            )
        )
    =>
        (chat-to-player-using-id this-any-human-neutral 22012)
            ;"Thank thee for the wood! It is enough."
        (disable-self)
    )

    (defrule
        (goal personality ALLY)
        (or
            (and
                (starting-resources == low-resources)
                (players-tribute any-human-neutral food >= 200)
            )
            (or
                (and
                    (starting-resources == medium-resources)
                    (players-tribute any-human-neutral food >= 500)
                )
                (and
                    (starting-resources == high-resources)
                    (players-tribute any-human-neutral food >= 1000)
                )
            )
        )
    =>
        (chat-to-player-using-id this-any-human-neutral 22013)
            ;"Thank thee for the food! It is enough."
        (disable-self)
    )

    (defrule
        (goal personality ALLY)
        (or
            (and
                (starting-resources == low-resources)
                (players-tribute any-human-neutral gold >= 200)
            )
            (or
                (and
                    (starting-resources == medium-resources)
                    (players-tribute any-human-neutral gold >= 500)
                )
                (and
                    (starting-resources == high-resources)
                    (players-tribute any-human-neutral gold >= 1000)
                )
            )
        )
    =>
        (chat-to-player-using-id this-any-human-neutral 22014)
            ;"Thank thee for the gold! It is enough."
        (disable-self)
    )

    (defrule
        (goal personality ALLY)
        (or
            (and
                (starting-resources == low-resources)
                (players-tribute any-human-neutral stone >= 200)
            )
            (or
                (and
                    (starting-resources == medium-resources)
                    (players-tribute any-human-neutral stone >= 500)
                )
                (and
                    (starting-resources == high-resources)
                    (players-tribute any-human-neutral stone >= 1000)
                )
            )
        )
    =>
        (chat-to-player-using-id this-any-human-neutral 22015)
            ;"Thank thee for the stone! It is enough."
        (disable-self)
    )

    (defrule
        (goal personality ALLY)
        (starting-resources == low-resources)
        (players-tribute any-human-neutral wood >= 200)
        (players-tribute any-human-neutral food >= 200)
        (players-tribute any-human-neutral gold >= 200)
        (players-tribute any-human-neutral stone >= 200)
    =>
        (chat-to-player-using-id this-any-human-neutral 22016)
        (chat-to-player-using-id this-any-human-neutral 22017)
            ;"The goods we have obtained from thee are glorious indeed!"
            ;"Set thine stance to Ally with me!"
        (enable-timer t-chatmore 60)
        (set-goal 35 NOTICE)
        (disable-self)
    )

    (defrule
        (goal personality ALLY)
        (starting-resources == medium-resources)
        (players-tribute any-human-neutral wood >= 500)
        (players-tribute any-human-neutral food >= 500)
        (players-tribute any-human-neutral gold >= 500)
        (players-tribute any-human-neutral stone >= 500)
    =>
        (chat-to-player-using-id this-any-human-neutral 22016)
        (chat-to-player-using-id this-any-human-neutral 22017)
            ;"The goods we have obtained from thee are glorious indeed!"
            ;"Set thine stance to Ally with me!"
        (enable-timer t-chatmore 60)
        (set-goal 35 NOTICE)
        (disable-self)
    )

    (defrule
        (goal personality ALLY)
        (starting-resources == high-resources)
        (players-tribute any-human-neutral wood >= 1000)
        (players-tribute any-human-neutral food >= 1000)
        (players-tribute any-human-neutral gold >= 1000)
        (players-tribute any-human-neutral stone >= 1000)
    =>
        (chat-to-player-using-id this-any-human-neutral 22016)
        (chat-to-player-using-id this-any-human-neutral 22017)
            ;"The goods we have obtained from thee are glorious indeed!"
            ;"Set thine stance to Ally with me!"
        (enable-timer t-chatmore 60)
        (set-goal 35 NOTICE)
        (disable-self)
    )

    (defrule
        (not (goal 35 0) )
        (players-stance any-human-neutral ally)
    =>
        (chat-to-player-using-id this-any-human-neutral 22003)
            ;"Let us be friends henceforth!"
        (set-stance this-any-human-neutral ally)
        (set-stance every-computer enemy)
        (disable-timer t-chatmore)
        (set-goal personality 0)
        (set-goal 35 0)
        (disable-self)
    )

    (defrule
        (goal 35 NOTICE)
        (timer-triggered t-chatmore)
        (or
            (players-stance any-human-neutral neutral)
            (players-stance any-human-neutral enemy)
        )
    =>
        (chat-to-player-using-id this-any-human-neutral 22018)
        (chat-to-player-using-id this-any-human-neutral 22019)
            ;"Thou must to set thine diplomatic"
            ;"stance towards me to Ally!"
        (disable-timer t-chatmore)
        (enable-timer t-chatmore 60)
        (set-goal 35 98)
        (disable-self)
    )

    (defrule
        (goal 35 98)
        (timer-triggered t-chatmore)
        (or
            (players-stance any-human-neutral neutral)
            (players-stance any-human-neutral enemy)
        )
    =>
        (chat-to-player-using-id this-any-human-neutral 22020)
        (chat-to-player-using-id this-any-human-neutral 22021)
        (chat-to-player-using-id this-any-human-neutral 22022)
            ;"This is thy last warning."
            ;"Set thine stance to Ally with me,"
            ;"as I shall do for thee."
        (disable-timer t-chatmore)
        (enable-timer t-chatmore 60)
        (set-goal 35 97)
        (disable-self)
    )

    (defrule
        (goal 35 97)
        (timer-triggered t-chatmore)
        (or
            (players-stance any-human-neutral neutral)
            (players-stance any-human-neutral enemy)
        )
    =>
        (disable-timer t-chatmore)
        (set-goal 35 96)
        (disable-self)
    )

    (defrule
        (game-time >= 3600)
        (goal personality ALLY)
    =>
        (set-goal personality 0)
        (set-goal 35 96)
        (disable-self)
    )

    (defrule
        (goal 35 96)
        (stance-toward any-human neutral)
    =>
        (chat-to-player-using-id this-any-human-neutral 22023)
        (chat-to-player-using-id this-any-human-neutral 22024)
            ;"Thou hast taken far too long to do that simple task."
            ;"Now we must be foes!"
        (disable-timer t-chat)
        (set-stance this-any-human enemy)
        (set-stance every-computer ally)
    )

    #end-if

(defrule
    (true)
=>
    (set-strategic-number sn-percent-enemy-sighted-response 25)
    (set-strategic-number sn-easier-reaction-percentage 20)
    (set-strategic-number sn-hits-before-alliance-change 50)
    (set-difficulty-parameter ability-to-maintain-distance 75)
    (set-difficulty-parameter ability-to-dodge-missiles 75)
    (disable-self)
)

;crude age advancement rules
(defrule
    (goal age-advancement NO)
    (players-current-age every-human >= feudal-age)
    (can-research-with-escrow feudal-age)
=>
    (release-escrow food)
    (research feudal-age)
    (set-goal age-advancement NOTICE)
    (enable-timer t-ageup 300)
)

(defrule
    (current-age == feudal-age)
=>
    (disable-timer t-ageup)
    (set-goal age-advancement NO)
    (disable-self)
)

(defrule
    (goal age-advancement NO)
    (players-current-age every-human >= castle-age)
    (can-research-with-escrow castle-age)
=>
    (release-escrow food)
    (release-escrow gold)
    (research castle-age)
    (set-goal age-advancement NOTICE)
    (enable-timer t-ageup 300)
)

(defrule
    (current-age == castle-age)
=>
    (disable-timer t-ageup)
    (set-goal age-advancement NO)
    (disable-self)
)

(defrule
    (goal age-advancement NO)
    (players-current-age every-human == imperial-age)
    (can-research-with-escrow imperial-age)
=>
    (release-escrow food)
    (release-escrow gold)
    (research imperial-age)
    (set-goal age-advancement NOTICE)
    (enable-timer t-ageup 300)
)

(defrule
    (current-age == imperial-age)
=>
    (disable-timer t-ageup)
    (set-goal age-advancement NO)
    (disable-self)
)

(defrule
    (goal age-advancement NOTICE)
    (current-age < imperial-age)
    (timer-triggered t-ageup)
=>
    (disable-timer t-ageup)
    (set-goal age-advancement NO)
)
#end-if

;********************************
#load-if-defined DIFFICULTY-MODERATE
(load "petersen diplomacy")
(load "petersen market")
(load "petersen tower")
(load "petersen wonder")

(defrule
    (true)
=>
    (set-strategic-number sn-percent-enemy-sighted-response 75)
    (set-strategic-number sn-hits-before-alliance-change 25)
    (set-difficulty-parameter ability-to-maintain-distance 50)
    (set-difficulty-parameter ability-to-dodge-missiles 50)
    (disable-self)
)
#end-if

;********************************
#load-if-defined DIFFICULTY-HARD
(load "petersen diplomacy")
(load "petersen market")
(load "petersen tower")
(load "petersen wonder")

(defrule
    (true)
=>
    (set-strategic-number sn-percent-enemy-sighted-response 99)
    (set-strategic-number sn-hits-before-alliance-change 10)
    (set-difficulty-parameter ability-to-maintain-distance 0)
    (set-difficulty-parameter ability-to-dodge-missiles 0)
    (disable-self)
)

#end-if

;********************************
#load-if-defined DIFFICULTY-HARDEST
(load "petersen diplomacy")
(load "petersen market")
(load "petersen tower")
(load "petersen wonder")

(defrule
    (true)
=>
    (set-strategic-number sn-percent-enemy-sighted-response 99)
    (set-strategic-number sn-hits-before-alliance-change 10)
    (set-difficulty-parameter ability-to-maintain-distance 0)
    (set-difficulty-parameter ability-to-dodge-missiles 0)
    (disable-self)
)

(defrule
    (current-age == imperial-age)
=>
    (enable-timer t-chatmore 1800)
    (disable-self)
)

(defrule
    (timer-triggered t-chatmore)
=>
    (cc-add-resource wood 500)
    (cc-add-resource food 500)
    (cc-add-resource gold 500)
    (cc-add-resource stone 500)
    (disable-timer t-chatmore)
    (enable-timer t-chatmore 1200)
)

#end-if